home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CLAMREFS.SRC < prev    next >
Text File  |  1990-11-03  |  2KB  |  137 lines

  1. ;\|
  2. ;CLAMREFS.SRC     Translated from CLAMREFS.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;ACCOUNT  04:12:49 PM  17/ 3/90                    |
  4. ;Program generated with the report writer|
  5.     define(PAGE|N|5|0|)
  6.     define(DATE.TIME.FLD|A|46||)
  7.     define(TOT.RECS|N|8|0|)
  8.     define(CHG.TIME|T|8||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(COMMODE|A|2||)
  18.     clrscr
  19.     clrlne(1|25)
  20.     open(CLAIMS||0|EXIT)
  21.     gosub GET.DATE
  22.     mount(REPORT|R|P)
  23.     pchr(P|10)
  24.     pchr(P|11)
  25.     pchr(P|4)
  26.     pchr(P|1)
  27.     trap(P|S|TOF)
  28.     gosub TOF
  29.     trap(I|G|FINI)
  30.     pfmt(9|||N|N|)
  31.     find(B|CLAIM.REF|NO.RECS|)
  32.     if TYPE.OF.CLAIM <> ("N") goto RD.NEXT
  33. PRT.REC:
  34.     pfmt(6||||)
  35.     TOT.RECS = (TOT.RECS + 1)
  36. RD.NEXT:
  37.     find(N|CLAIMS|FINI|)
  38.     if CLAIM.ORDER = (499) then pfmt(8|||N|N|)
  39.     if TYPE.OF.CLAIM <> ("N") goto RD.NEXT
  40.     goto PRT.REC
  41. FINI:
  42.     pfmt(5||||)
  43.     pfmt(8||||)
  44.     pblnk(2)
  45.     pfmt(7||||)
  46.     trap(P|D|)
  47.     ptof
  48.     run("CLAIM")
  49. TOF:
  50.     PAGE = (PAGE + 1)
  51.     pfmt(1||||)
  52.     pfmt(2||||)
  53.     pfmt(3||||)
  54.     pblnk(1)
  55.     pfmt(4||||)
  56.     pfmt(5||||)
  57.     ret
  58. GET.DATE:
  59.     time(CHG.TIME|G)
  60.     date(CHG.DATE|G)
  61.     AM.PM = ("AM")
  62.     if CHG.TIME > (43199) doO 
  63.         {
  64.         AM.PM = ("PM")
  65.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  66.         }
  67.     TIME.STRG =mid(CHG.TIME|1|8|)
  68.     STDDAYS =day(CHG.DATE)
  69.     STDMONTH =xmt(CHG.DATE)
  70.     STDAYH =mid(CHG.DATE|4|2|)
  71.     STDYEAR =mid(CHG.DATE|7|4|)
  72.     PG.STRG = (PAGE)
  73.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  74.     ret
  75. NO.RECS:
  76.     pmsg("There are no records in the ACCOUNT  file "|1|24|Y|||)
  77. EXIT:
  78.     run("CLAIM")
  79. \R REPORT  
  80.                      "CLAIM ENTRY CODES "
  81.                 &
  82.                                  Page # &
  83. CLAIM.ORDER  CLAIM.NAME                    CLAIM.ACCOUNT
  84. -----------  ------------------------------  ---------------
  85. &            &                                &
  86. Total number of records printed: &
  87. EXPENDITURE
  88. INCOME
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128. \
  129. DATE.TIME.FLD
  130. PAGE
  131. CLAIM.ORDER
  132. CLAIM.NAME
  133. CLAIM.REF
  134. TOT.RECS
  135. \
  136.  
  137.